home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 6 / MacMania 6.toast / / Tools&Utilities / EnterAct Stuff / Drag_on Modules / hAWK programs / $UppercaseAll < prev    next >
Text File  |  1993-05-12  |  320b  |  18 lines
  1. #Change all letters of each word (field) to uppercase
  2. BEGIN {u = "abcdefghijklmnopqrstuvwxyz"
  3.     U = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  4.     }
  5.     
  6.     {
  7.     out = ""
  8.     n = length($0);
  9.     for (i = 1; i <= n; ++i)
  10.         {
  11.         if (ind = index(u, substr($0, i, 1)))
  12.             out = out substr(U, ind, 1);
  13.         else
  14.             out = out substr($0, i, 1)
  15.         }
  16.     print out
  17.     }
  18.